home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc2 / afind.lha / AFind / Install / AFind.install next >
Text File  |  1996-05-09  |  9KB  |  355 lines
  1. ; $VER: AFind.install 1.00 (24.01.96)
  2. ; Script to install AFind
  3. ;
  4. (complete 0)
  5.  
  6. ; Install script for AFind (Workbench 2.0 or higher)
  7.  
  8. (set old_level @user-level)
  9.  
  10. (set SourceDir "/")
  11. ;=============================================================================
  12. ; German strings
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set default_lang 2)
  17.  
  18. (set #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  19.  
  20. (set #AFind-InstallMsg
  21. (cat "\n\AFind Installationsskript.\n"
  22.         "Diese Skript installiert AFind auf Ihrem Amiga.\n\n"
  23.         "Lesen Sie das Anleitungs-File für weitere Informationen\n"
  24.         " über den Vertrieb von AFind.\n\n"
  25.         "AFind © 1995-1996 Guido Mersmann\n"
  26.         "All Rechte reserviert."
  27. ))
  28.  
  29. (set #AFind-Where
  30. (cat "Wo möchten Sie AFind installieren ?\n"
  31.         "(Ein Verzeichnis wird angelegt)"
  32. ))
  33.  
  34. (set #AFind-Update
  35. (cat "\nEin AFind-Verzeichnis existiert im ausgewählen"
  36.         " Verzeichnis. Wenn Sie fortfahren,"
  37.         " bestätigen Sie, daß Sie die alte AFind-Installation"
  38.         " mit der neuesten Version updaten wollen."
  39.         " Verschiedene AFind-Dateien (z.B Prefs) werden falls nötig"
  40.         " überschrieben!"
  41. ))
  42.  
  43. (set #AFind-Main "Welche Version von AFind möchten Sie installieren?")
  44. (set #AFind-Main-help
  45. (cat "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0."
  46.      " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen"
  47.      " benutzt, wenn sich AFind im Hintergrund befindet. Dazu MUß"
  48.      " die Locale.library eingebunden sein. Für die OS3.0+ gilt das selbe"
  49.      " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die"
  50.      " weiteren Speicher sparen."
  51. ))
  52.  
  53. (set #AFind-copying-Main "\nKopiere AFind nach AFind/...")
  54. (set #AFind-copying-Catalogs "\nKopiere Kataloge nach ...AFind/Locale/...")
  55.  
  56. (set #AFind-Language "\nWelche Sprachen sollen installiert werden ?")
  57. (set #AFind-Language-help
  58. (cat "\nDer Amiga kann in vielen verschiedenen Sprachen"
  59.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  60.          " nur die Sprachen anwählen, die sie benötigen"
  61.          " Haken Sie also einfach die Sprachen ab, die Sie"
  62.          " Ihrem System zugänglich machen wollen."
  63. ))
  64. (set #AFind-Docs "\nWelche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  65.  
  66. (set #AFind-Exit
  67. (cat "\nAFind installaliert !!\n\n"
  68.      "Bitte reseten Sie ihren Rechner bevor Sie AFind"
  69.      " das erste Mal benutzen. Dadurch werden Probleme mit den"
  70.      " Sprachenkatalogen des Systems vermieden !!"
  71. ))
  72. ))
  73.  
  74. ;=============================================================================
  75. ; English strings
  76.  
  77. (if (<> @language "deutsch")
  78. (
  79. (set default_lang 4)
  80.  
  81. (set #bad-kick "You must have at least Workbench 2.0+")
  82.  
  83. (set #AFind-InstallMsg
  84. (cat "\n\AFind installation script.\n"
  85.         "This script installs AFind on your Amiga.\n\n"
  86.         "Read the DOK-file for more information\n"
  87.         " on the distribution of AFind.\n\n"
  88.         "AFind © 1995-1996 Guido Mersmann\n"
  89.         "All rights reserved."
  90. ))
  91.  
  92. (set #AFind-Where
  93. (cat "Where would you like to install AFind ?\n"
  94.         "(A drawer will be created)"
  95. ))
  96.  
  97. (set #AFind-Update
  98. (cat "\nA AFind drawer does already exist in the selected "
  99.         " directory. By selecting \"Proceed\", you"
  100.         " indicate that you want to update the AFind"
  101.         " installation with the most recent version.\n"
  102.         "Several AFind specific files will be overwritten!"
  103. ))
  104.  
  105. (set #AFind-Main "Which AFind version should be installed ?")
  106. (set #AFind-Main-help
  107. (cat "The OS2.0+ version should only be used on Systems with OS2."
  108.      " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!"
  109.      " Special OS3.0+ functions are used to save more memory."
  110. ))
  111. (set #AFind-copying-Main          "Copying AFind to ...AFind/...")
  112. (set #AFind_copying-Catalogs      "Copying catalogs to ...AFind/Locale/...")
  113.  
  114. (set #AFind-Language "\nWhich languages should be installed ?")
  115. (set #AFind-Language-help
  116. (cat "\nThe Amiga can be operated in many different"
  117.           " languages."
  118.           "To reduce the amount of space consumed by the"
  119.           " language files, you can select to have only the"
  120.           " files of specific languages copied.\n\n"
  121.           "Simply check the boxes of the languages you wish"
  122.           " to have available on your system.\n\n"
  123. ))
  124.  
  125. (set #AFind-Docs "\nWhich text files should be installed in \"AFind:Docs\" ?")
  126.  
  127. (set #AFind-Exit
  128. (cat "\nAFind installed !!\n\n"
  129.      "Please reset your computer before starting AFind"
  130. ))
  131. ))
  132. ;=============================================================================
  133. (set #version (/ (getversion) 65536))
  134.  
  135. (if (< #version 37)
  136.     (
  137.     (abort #bad-kick)
  138.     )
  139. )
  140.  
  141. (if (= #version 37) (set Binary 0))
  142. (if (= #version 38) (set Binary 1))
  143. (if (> #version 38) (set Binary 2))
  144.  
  145.  
  146. ;(set @default-dest "ram:")
  147. (set @default-dest "SYS:Tools/")
  148.  
  149. (message #AFind-InstallMsg)
  150. (welcome)
  151.  
  152. (set ProgDir
  153.         (tackon
  154.                 (askdir
  155.                         (prompt #AFind-Where)
  156.                         (help @askdir-help)
  157.                         (default @default-dest)
  158.                 )
  159.                 "AFind"
  160.         )
  161. )
  162.  
  163. (if (= (exists ProgDir) 2)
  164.         (message #AFind-Update)
  165. )
  166. ;*****
  167. ;***** Jetzt einige Pfade basteln ****
  168. ;*****
  169. (Set Catalogs (tackon Progdir "Catalogs"))
  170. (Set Docs (tackon Progdir "Docs"))
  171. (Set DocsDeutsch (tackon Progdir "Docs/Deutsch"))
  172. (Set DocsEnglish (tackon Progdir "Docs/english"))
  173. ;*****
  174. (
  175.         (makedir ProgDir
  176.                 (help @makedir-help)
  177.                 (infos)
  178.         )
  179. )
  180. (set @default-dest ProgDir)
  181.  
  182. ;***** Create dirs
  183. (complete 20)
  184.  
  185. (makedir Catalogs)
  186. (makedir Docs)
  187. (makedir DocsDeutsch)
  188. (makedir (tackon Progdir "Keyfile"))
  189.  
  190. ;***** Delete old Data and Prefs
  191. (delete (tackon ProgDir "AFind"))
  192. ;***** Icons
  193. (complete 30)
  194.  
  195. (copyfiles
  196.         (source (tackon SourceDir "Docs.info"))
  197.         (dest ProgDir)
  198. )
  199. (copyfiles
  200.         (source (tackon SourceDir "AminetFind.info"))
  201.         (dest ProgDir)
  202. )
  203. (copyfiles
  204.         (source (tackon SourceDir "AddIndex"))
  205.         (dest ProgDir)
  206. )
  207. (copyfiles
  208.         (source (tackon SourceDir "AddIndexGUI"))
  209.         (dest ProgDir)
  210. )
  211. (copyfiles
  212.         (source (tackon SourceDir "AddIndexGUI.info"))
  213.         (dest ProgDir)
  214. )
  215. ;**********************
  216. ;***** AFind_Main *****
  217. ;**********************
  218. (complete 40)
  219.  
  220. (set Binary (askchoice
  221.     (prompt #AFind-Main)
  222.     (help #AFind-Main-help)
  223.     (choices
  224.     "OS2.0+"
  225.                            "OS2.1+"
  226.                            "OS3.0+"
  227.                         )
  228.     (default Binary)
  229.             )
  230. )
  231.  
  232. (set Binary (Select Binary "AFind" "Bin/OS21" "Bin/OS30"))
  233. (copyfiles
  234.         (prompt "\n" #AFind-copying-Main)
  235.         (source (tackon SourceDir Binary) (infos))
  236.         (dest ProgDir)
  237.         (newname "AFind")
  238.         (help @copyfiles-help)
  239.         (optional <force>)
  240. )
  241. ;********************
  242. ;***** Catalogs *****
  243. ;********************
  244. (complete 50)
  245. (set lang (askoptions
  246.                 (prompt #AFind-Language)
  247.                 (help #AFind-Language-help)
  248.                 (choices
  249.                         "English"
  250.                         "Deutsch")
  251.                 (default -1)
  252.         )
  253. )
  254. ;********************
  255. ;***** Copy Catalogs
  256. ;********************
  257. (set n 0)
  258. (while (< n 2)
  259.         (set language (select n "english" "deutsch"))
  260.         (
  261.                 (if (IN lang n)
  262.                 (
  263.                         (makedir (Tackon Catalogs language))
  264.                         (copyfiles
  265.                                 (source (tackon (tackon SourceDir "Catalogs") language))
  266.                                 (dest (tackon Catalogs language))
  267.                                 (help @copyfiles-help)
  268.                                 (all)
  269.                         )
  270.                 )
  271.                 )
  272.         )
  273. (set n (+ n 1))
  274. )
  275.  
  276. ;***** DOCS
  277. (complete 60)
  278. (set docs (askoptions
  279.                         (prompt #AFind-Docs)
  280.                         (help @askoptions-help)
  281.                         (choices
  282.                         "deutsch Guide"
  283.                                 )
  284.                         (default 1)
  285.                   )
  286. )
  287.  
  288. (set n 0)
  289. (while (< n 2)
  290.         (set documents (select n
  291.         "deutsch/AFind.Guide"
  292.         "english/AFind.Guide"
  293.     ))
  294.         (
  295.                 (if (IN docs n)
  296.                 (
  297.                         (copyfiles
  298.                                 (source (cat (tackon SourceDir "Docs/") documents))
  299.                                 (dest (cat (tackon ProgDir "Docs/") documents))
  300.                                 (help @copyfiles-help)
  301. ;                               (infos)
  302.                         )
  303.                 )
  304.                 )
  305.         )
  306. (set n (+ n 1))
  307. )
  308.  
  309. (complete 70)
  310. (complete 80)
  311.  
  312. ;**** WB_Startup ?
  313. (complete 90)
  314. ;(Set WBStartup (askbool
  315. ;    (prompt #AFind-WBStartup)
  316. ;    (help #AFind-Printer-help)
  317. ;    (Default 1)
  318. ;               )
  319. ;)
  320. ;**** ToolTypes
  321. (complete 95)
  322. ;**** WBStartup
  323. (complete 97)
  324. ;
  325. ; (IF (= WBStartup 1)
  326. ;  (copyfiles (source (tackon ProgDir "AminetFind.info"))
  327. ;             (dest "SYS:WBStartup")
  328. ;  )
  329. ; )
  330. ;***** KEYFILE
  331. (complete 97)
  332.  
  333. (if (<> (exists (tackon SourceDir "Keyfile/AFind.key") (noreq)) 0)
  334. (
  335.         (copyfiles
  336.                 (source (tackon SourceDir "Keyfile/AFind.key"))
  337.                 (dest (tackon Progdir "Keyfile/"))
  338.                 (help @copyfiles-help)
  339.  
  340.         )
  341. )
  342. )
  343.  
  344. ;***** Startup-Sequence
  345. (complete 98)
  346. (startup "AFind"
  347.        (prompt "A path command has to be added to your user-startup")
  348.        (help @startup-Help)
  349.        (command (cat "path " ProgDir " add"))
  350. )
  351.  
  352. ;***** Finished
  353. (complete 100)
  354. (exit #AFind-exit)
  355.